home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Present…ry 5: (Reseller Edition)
/
Apple Reference & Presentations Library 5.0 (Reseller Edition).iso
/
6-Developer Demos
/
Developer Demos-Gen.
/
Lotus MarketPlace™ Demo
/
Demo Files
/
Run Movies
/
card_2981.txt
< prev
next >
Wrap
Text File
|
1990-08-13
|
4KB
|
224 lines
-- card: 2981 from stack: in
-- bmap block id: 3350
-- flags: 0000
-- background id: 2617
-- name:
-- part 1 (button)
-- low flags: 00
-- high flags: 4005
-- rect: left=181 top=171 right=187 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: carlos
----- HyperTalk script -----
on mouseUp
if the hilite of me is true
then
set the hilite of me to false
else
set the hilite of me to true
end if
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=181 top=213 right=229 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mike
----- HyperTalk script -----
on mouseUp
if the hilite of me is true
then
set the hilite of me to false
else
set the hilite of me to true
end if
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=181 top=251 right=267 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sandra
----- HyperTalk script -----
on mouseUp
if the hilite of me is true
then
set the hilite of me to false
else
set the hilite of me to true
end if
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=163 right=195 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
push card
go to stack "TWhat1"
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=204 right=236 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
push card
go to stack "TWhat2"
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=243 right=275 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
push card
go to stack "TWhat3"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=160 top=294 right=309 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Movies
----- HyperTalk script -----
on mouseUp
global movies_global, number_of_movies, current_movie
put 0 into number_of_movies
if the hilite of card button carlos is true
then
add 1 to number_of_movies
put "go to stack TWhat1" into line number_of_movies of movies_global
end if
if the hilite of card button mike is true
then
add 1 to number_of_movies
put "go to stack TWhat2" into line number_of_movies of movies_global
end if
if the hilite of card button sandra is true
then
add 1 to number_of_movies
put "go to stack TWhat3" into line number_of_movies of movies_global
end if
if number_of_movies = 0
then
answer "You must select at least one movie." with "Cancel"
else
put 0 into current_movie
go to next card
end if
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=282 top=294 right=309 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Return to Main Menu
----- HyperTalk script -----
on mouseUp
visual effect dissolve to black
visual effect dissolve
pop card
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=429 top=296 right=311 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Quit
----- HyperTalk script -----
on mouseUp
domenu "Quit Hypercard"
end mouseUp